home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / pibterm / pibt41s4.arc / YESNO.MOD < prev   
Encoding:
Text File  |  1987-11-16  |  2.2 KB  |  65 lines
  1. (*----------------------------------------------------------------------*)
  2. (*          YesNo --- Prompt for and read Yes/No question/answer        *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. FUNCTION YesNo( YesNo_Question : AnyStr ) : BOOLEAN;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Function:   YesNo                                                *)
  10. (*                                                                      *)
  11. (*     Purpose:    Prompt for and read Yes/No question/answer           *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Yes_Answer := YesNo( YesNo_Question : AnyStr ) : BOOLEAN;     *)
  16. (*                                                                      *)
  17. (*           YesNo_Question --- Text of Yes/No question to be asked     *)
  18. (*           Yes_Answer     --- Set TRUE if "Yes" answer given, else    *)
  19. (*                              set FALSE.                              *)
  20. (*                                                                      *)
  21. (*      Calls:   Read_Kbd                                               *)
  22. (*                                                                      *)
  23. (*----------------------------------------------------------------------*)
  24.  
  25. VAR
  26.    Ans_Ch: CHAR;
  27.    X     : INTEGER;
  28.    Y     : INTEGER;
  29.  
  30. BEGIN (* YesNo *)
  31.  
  32.    WRITELN;
  33.  
  34.    X      := WhereX;
  35.    Y      := WhereY;
  36.  
  37.    Ans_Ch := ' ';
  38.  
  39.    TextColor( Menu_Text_Color_2 );
  40.  
  41.    REPEAT
  42.  
  43.       GoToXY( X , Y );
  44.       ClrEol;
  45.       WRITE( YesNo_Question );
  46.       Read_Kbd( Ans_Ch );
  47.       Ans_Ch := UpCase( Ans_Ch );
  48.  
  49.    UNTIL( Ans_Ch IN ['Y','N'] );
  50.  
  51.    TextColor( Menu_Text_Color );
  52.  
  53.    IF Ans_Ch = 'Y' THEN
  54.       BEGIN
  55.          YesNo := TRUE;
  56.          WRITE('Yes');
  57.       END
  58.    ELSE
  59.       BEGIN
  60.          YesNo := FALSE;
  61.          WRITE('No');
  62.       END;
  63.  
  64. END   (* YesNo *);
  65.